home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / matrix mania (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 0 x=3840:forf=0to127:pokex+f,0:nextf:pokex,255:forf=1to7:pokex+f*3,192:nextf:l=1
  2. 1 v=53248:d=2040:pokex+96,255:forf=0to6:pokex+75+3*f,3:nextf:poked+1,61:poked,60
  3. 2 pokev+21,3:pokev+39,1:pokev+40,1:pokev+32,0:pokev+33,0:print"[147]matrix mania
  4. 3 [129]i[178]0[164]11:[129]x[178]0[164]11:[153]"(NULL)";:[130]x:[153]"sgn":[130]i:[153]"usrusrusrusrusrusrusrusrusrusrusrusr":q[178]15
  5. 4 [129]i[178]0[164]11:[129]x[178]0[164]11:a[178][181](4[172][187](0)):[139]a[178]1[167]b[178]160:[151]1064[170]i[172]40[170]x,b:n[178]56320
  6. 5 [151]55336[170]i[172]40[170]x,5:[130]x:[130]i:u[178]1064:[139]sc[178]0[167]xp[178]25:yp[178]58:l[178]1:kp[178]1159:bp[178]u
  7. 6 [153]""[163]24)"time:":[129]x[178]0[164]2:[153][163]q)"(NULL)(NULL)(NULL)sgn":[130]x:[153][163]q)"usrusrusr"
  8. 7 x[178][181](10[172][187](0)):y[178][181](10[172][187](0)):[129]k[178]0[164]2:[129]z[178]0[164]2:p[178]u[170]x[170]40[172]y[170]z[170]40[172]k:g[178]111
  9. 8 [151]kp[170]z[170]40[172]k,[194](p):[130]z:[130]k:[151]v[170]39,1:[151]v[170]40,1:t[178]14:[139]sc[177]hi[167]hi[178]sc
  10. 10 m[178]999:[129]u[178]m[164]1[169][171]l:[151]v[170]2,xp:[151]v,xp:[151]v[170]1,yp:[139][194](n)[178]g[167]17
  11. 11 [139][194](n)[178]126[175]yp[177]58[167]yp[178]yp[171]8:bp[178]bp[171]40:[151]v[170]1,yp:[151]v[170]3,yp[170]t:
  12. 12 [139][194](n)[178]125[175]yp[179]130[167]yp[178]yp[170]8:bp[178]bp[170]40:[151]v[170]1,yp:[151]v[170]3,yp[170]t:
  13. 13 [139][194](n)[178]123[175]xp[177]25[167]xp[178]xp[171]8:bp[178]bp[171]1:[151]v,xp:[151]v[170]2,xp:
  14. 14 [139][194](n)[178]119[175]xp[179]97[167]xp[178]xp[170]8:bp[178]bp[170]1:[151]v,xp:[151]v[170]2,xp
  15. 15 [151]v[170]3,yp[170]t:[153]""[163]30)"    cmdcmdcmdcmd"u:[130]u:[151]v[170]21,0:b$[178]"press":[137]19
  16. 16 sc[178]sc[170]u[170]1:[153]""[163]28[171][195]([196](sc)))"score:"sc"":l[178]l[170]1:[137]3
  17. 17 f[178]0:[129]kk[178]0[164]2:[129]k[178]0[164]2:[139][194](bp[170]k[170]kk[172]40)[179][177][194](kp[170]k[170]kk[172]40)[167]f[178]1:u[178]u[171]30
  18. 18 [130]k:[130]kk:[145](f[170]1)[137]16,15
  19. 19 b$[178]b$[170]" a key to go":[153]"loadgame over!list":[139]sc[178]hi[167][153]"new highscore !clr
  20. 20 print"score:"sc"[157],highscore:"hi:print"[151]"b$"":poke198,0:wait198,1:sc=0:goto2
  21.